home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
me_cd25.zip
/
ME2MUTT.ZIP
/
MYME.MUT
< prev
next >
Wrap
Lisp/Scheme
|
1992-11-09
|
1KB
|
56 lines
;; myme.mut : My prefered additions to the base ME2
;; To compile this file: "mc2 -tme2 myme"
;; C Durland Public Domain
(include me2.h)
(defun MAIN
{
(HELP 0) ;; I don't need no steenking help
(modify-syntax-entry "w-") ;; a dash is part of a word
;; My prefered bindings:
(bind-to-key "calculator" "C-c")
(bind-to-key "scroll-up" "M-z")
(bind-to-key "scroll-down" "C-z")
(bind-to-key "spawn-shell" "C-_")
(bind-to-key "undo" 'M-\')
(bind-to-key "iturn-on-undo" 'M-+')
(bind-to-key "" "C-w") ;; remove that binding
(bind-to-key "cut-region" "M-C-w")
(auto-mode-list TRUE
'Re[0-9]+$' "mail" ;; mailx: "/tmp/Re<digits>"
'\.letter' "mail" ;; mail from tin: "~/.letter"
'\.article' "mail" ;; posting from tin: "~/.article"
'rnmail[0-9]+$' "mail" ;; mail from notes: "/tmp/rnmail<digits>"
'nfa[0-9]+$' "mail" ;; notes: "/tmp/nfa<digits>"
'dts.+[0-9]+$' "mail" ;; dts
)
(if (== 1 (argc)) ;; no files on command line
{
; (update) ;; so messages from the next stuff stick around
(ask-user)(visit-file) ;; ask to edit a file
(command-line-done TRUE)
})
})
(defun
print-region
{
(int bag-id)
(bag-id (create-bag))
(append-to-bag bag-id APPEND-REGION)
(OS-filter "lp -o2 " bag-id)
(free-bag bag-id)
}
)
(defun
makeit { (compile "make CDEBUGFLAGS=-g") }
)